www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_admin_sys_label.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<table height="107" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<%
set filea=new Cls_FSO
set fileb=new DosAsp
if filea.ReportFolderStatus(server.mappath("../../Label/sys_Label/"))=1 then
call list_sys_label()
else
%>
<script language="javascript">
alert("/Label/sys_Label/目录不存在,即将创建");
</script>
<%
call createfile("../../Label/sys_Label/test.asp","1111",true)
call deletefile("../../Label/sys_Label/test.asp")
call list_sys_label()
end if
nofolder=0
nofiles=0
function list_sys_label()
ss3=filea.ShowFolderList(server.mappath("../../Label/sys_Label/"&request("fpath")))
ss4=filea.ShowFileList(server.mappath("../../Label/sys_Label/"&request("fpath")))
if ss3=-1 or ss3="" then
nofolder=1
else
ss3=left(ss3,len(ss3)-1)'去掉最后一个|号
'处理文件夹
fl1=split(ss3,"|")
numf1=ubound(fl1)+1
end if
if ss4=-1 or ss4="" then
nofiles=1
else
ss4=left(ss4,len(ss4)-1) '去掉最后一个|号
'处理文件
fl2=split(ss4,"|")
numf2=ubound(fl2)+1
end if
'response.write numf1+numf2
redim flst(numf1+numf2,2)
for i=0 to numf1-1
flst(i,0)=fl1(i)
flst(i,1)=0 '=0表示文件夹
next
for i=numf1 to numf1+numf2-1
ii=i-numf1
flst(i,0)=fl2(ii)
flst(i,1)=1 '=1表示文件
next
yy=4
xx=4
per_p=xx*yy
if request("page")="" then
npage=1
else
npage=cint(request("page"))
end if
ptr=0
for iip=1 to npage-1
ptr=ptr+per_p
next
for ix=1 to xx
if (ptr-(npage-1)*per_p)>(per_p-1) or ptr>numf1+numf2-1 then exit for
%>
<tr width=730 align=center>
<%
for iy=1 to yy
if (ptr-(npage-1)*per_p)>(per_p-1) or ptr>numf1+numf2-1 then exit for
%>
<td width=50 align=center>
<table width=150 style="word-break:break-all">
<tr>
<td>
<%
if request("fpath")="" then
fph=replace(flst(ptr,0),"&","----")&"/"
else
sssd="/"
if instr(request("fpath"),"/")<>0 then sssd=""
fph=request("fpath")&sssd&replace(flst(ptr,0),"&","----")&"/"
end if
if flst(ptr,1)=0 then
sss2="D_admin_sys_label.asp?fpath="&fph
else
sss2="D_view_or_copy_sys_label.asp?fname="&fph
end if
%>
<%if flst(ptr,1)=0 then%>
<a href="<%=sss2%>">
<img src="../IMG/Folder/folder.gif" border=0>
</a>
<%else%>
<a href="<%=sss2%>">
<img src="../IMG/Label/label3.gif" border=0>
</a>
<%end if%>
</td>
</tr>
<tr>
<td width=160 style="word-break:break-all">
<a href="<%=sss2%>">
<%=flst(ptr,0)%>
</a>
</td>
</tr>
</table>
</td>
<%
ptr=ptr+1
next
%>
</tr>
<%
next
if nofiles=1 and nofolder=1 then
%>
<tr width=730 align=center><td>
此文件夹内无内容
</td>
</tr>
<%end if%>
<tr width=730 align="center"><td align="center" colspan=8>
<%
zong_p=cint((numf1+numf2)/per_p)
if ((numf1+numf2) mod per_p)>0 then
zong_p=zong_p+1
end if
if npage<zong_p then
www3="<a href='D_admin_sys_label.asp?page="&npage+1&"&fpath="&request("fpath")&"'>下一页</a>"
end if
if npage>1 then
www2="<a href='D_admin_sys_label.asp?page="&npage-1&"&fpath="&request("fpath")&"'>上一页</a>"
end if
if npage>=1 then
www1="<a href='D_admin_sys_label.asp?page="&"1"&"&fpath="&request("fpath")&"'>首页</a>"
end if
if npage<=zong_p then
www4="<a href='D_admin_sys_label.asp?page="&zong_p&"&fpath="&request("fpath")&"'>末页</a>"
end if
swww=" "&www1&" "&www2&" "&www3&" "&www4&" "&npage&"/"&zong_p&"页"
%>
<%
=swww
%>
</td></tr>
<%
end function
%>
<table>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>